home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib11.dsk
/
FID PERSONALIZER.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
809b
|
18 lines
10 REM **********************
11 REM * FID PERSONALIZER *
12 REM * BY PAUL RAYMER *
13 REM * COPYRIGHT (C) 1982 *
14 REM * BY MICRO-SPARC INC *
15 REM * LINCOLN, MA. 01773 *
16 REM **********************
20 ON PEEK(104) = 96 GOTO 30: POKE 104,96: POKE 24576,0: PRINT CHR$(4)"RUNFID PERSONALIZER"
30 TEXT : HOME : CLEAR
40 VTAB 5: PRINT "NAME/MESSAGE (MAXIMUM 24 CHARACTERS) ": PRINT : INPUT "";N$
50 IF LEN(N$) <22 THEN N$ = CHR$(32) +N$ + CHR$(32): GOTO 50
60 HOME : VTAB 5: PRINT "INSERT DISK CONTAINING FID PROGRAM": PRINT "AND PRESS THE RETURN KEY";: GET A$: PRINT
70 PRINT CHR$(4)"BLOADFID"
80 FOR X = 1 TO 22
90 POKE X +5898, ASC( MID$ (N$,X,1)) +128
100 NEXT
110 PRINT CHR$(4)"BSAVEFUD,A$803,L$124E"
120 HOME : VTAB 12: PRINT CHR$(7)"DONE!": PRINT CHR$(4)"FP"